/FILENAME,E413
/TITLE,TOWER
TOWER						!кģ
!עѡTOWERļڹĿ¼¡
!ȽACELXACELYļڹĿ¼
!************************
*DIM,TJX,ARRAY,2,190,0, , ,  	!
*DIM,TJY,ARRAY,2,190,0, , ,  	!
*CREATE,ANSUITMP			    !
*VREAD,TJX(1,1),'ACELX','TXT',' ',190, , , , , , 
(E9.3,E11.3)
*END
/INPUT,ANSUITMP 
*CREATE,ANSUITMP			     !
*VREAD,TJY(1,1),'ACELY','TXT',' ',190, , , , , , 
(E9.3,E11.3)
*END
/INPUT,ANSUITMP 
!********************************
FINI
/SOLU				!
ANTYPE,4				!ָΪ˲̬ѧ
TRNOPT,FULL			!˲̬ѧFULL
TIMINT,OFF			!رʱЧӦ
OUTRES,BASIC,ALL			!ÿһ
KBC,1				!ָغ
TIME,1E-10			!ָغɲʱ
NSUB,4,8				!ָغӲΪ4ӲΪ8
ACEL,0,9.8,0			!ʩٶ
ALLS				!ѡԪ
SOLVE				!һغɲ
!£ṹӦ
TIMINT,ON				!ʱЧӦ
!**************غ**************
*DO,T,1,190,1					!ѭݲ
TIME,0.1*T					!ʱ䲽
KBC,0						!ָغΪغ
NSUB,1						!趨ӲΪ1
ALPHAD,0.05				    !趨ALPHAΪ0.05
BETAD,0.01					!趨նBETAΪ0.01
NSEL,S,LOC,Y,OUTLET_H-QUN_H 
ACEL,TJX(2,T),TJY(2,T)		!趨XYٶ
ALLS						!ѡԪ
SOLVE						!
*ENDDO
SAVE						!
